0 CLR:DIMT$(100,8)
1 PRINTCHR$(14):POKE53280,0:POKE53281,0
2 PRINT"[147][159][198]ILE-[206]AME ?":INPUTH$:H$="0:"+H$+",S,R"
800 PRINT"[147][204]ADE [196]ATEN - [194]ITTE WARTEN !"
820 OPEN2,8,2,H$
830 J=0:I=1
835 GET#2,V$:IFV$=CHR$(255)THENJ=J+1:GOTO838
837 T$(I,J)=T$(I,J)+V$
838 IFJ=8THENI=I+1:J=0
840 RS=ST
850 IFRS=64THENCLOSE2:G=I-1:GOTO1000
870 GOTO835
1000 PRINT"[147][195][207][206][212][193][195][212] [196][197][193][204][197][210]-[196][193][212][197][206] [218][197][201][199][197][206] [213][206][196] [196][210][213][195][203][197][206]"
1001 PRINT"[198]1 - [194]ILDSCHIRMAUSGABE"
1002 PRINT"[198]3 - [196]RUCK (#4)"
1003 PRINT"[198]5 - [206]EUBEGINN"
1004 PRINT"[198]7 - [193]BSENDER EINGEBEN"
1005 PRINT"[198]8 - [198]INITO"
1006 PRINT"[198]OR EASIER PAPERHANDLING: [208]UT [217]OUR"
1007 PRINT"ADRESSTICKERLANE IN THE SINGLEPAPER-":PRINT"SHETSLOT"
1008 PRINT"[212]HIS PROGRAMM MAKES [211][208][193][195][197][211] !"
1009 GETA$
1010 IFA$="[133]"THEN1100
1011 IFA$="[134]"THEN1200
1012 IFA$="[135]"THENRUN
1013 IFA$="[140]"THENEND
1014 IFA$="[136]"THEN1500
1015 GOTO1009
1100 I=1
1101 IFI>GTHENI=G
1102 IFI=0THENI=1
1103 PRINT"[147][196]ATEN ZEIGEN:"
1105 PRINT"[197]INGABE [206]R. : "I
1110 PRINT"[199]RUPPE......: "T$(I,0)
1111 PRINT"[208]SEUDO......: "T$(I,1)
1112 PRINT"[215]IRKL. [206]AME.: "T$(I,2)
1113 PRINT"[193]DRESSE.....: "T$(I,3)
1114 PRINT"[215]OHNORT.....: "T$(I,4)
1115 PRINT"[204]AND........: "T$(I,5)
1116 PRINT"[212]EL.-[206]UMMER : "T$(I,6)
1117 PRINT"[204]ETZTER [203]ONT: "T$(I,7)
1120 PRINT"[198]1 - [218]URUECK"
1121 PRINT"[198]3 - [197]RSTE [193]DRESSE"
1122 PRINT"[198]5 - [204]ETZTE [193]DRESSE"
1123 PRINT"[198]7 - [215]EITER"
1124 PRINT"[210][197][212] - [205][197][206][213][197] !"
1125 PRINT"[196] - [193]DRESSETIKETTEN DRUCKEN"
1130 GETA$:IFA$="[133]"THENI=I-1:GOTO1101
1131 IFA$="[134]"THENI=1:GOTO1101
1132 IFA$="[135]"THENI=G:GOTO1101
1133 IFA$="[136]"THENI=I+1:GOTO1101
1134 IFA$="D"THEN1150
1135 IFA$=CHR$(13)THEN1000
1140 GOTO1130
1150 D=I:OPEN4,4,7
1152 GOSUB1400
1160 CLOSE4:GOTO1101
1200 I=0
1201 PRINT"[147][196]ATEN DRUCKEN:"
1202 PRINT"[198]1 - [193]UF [208]APIER DRUCKEN"
1203 PRINT"[198]3 - [193]DRESS-[197]TIKETTEN DRUCKEN"
1204 PRINT"[210][197][212] - [205][197][206][213][197] !"
1205 GETA$:IFA$="[133]"THEN1209
1206 IFA$="[134]"THEN1230
1207 IFA$=CHR$(13)THEN1000
1208 GOTO1205
1209 OPEN4,4,7:FORD=1TOG
1210 PRINT#4,"  [199]ROUP.......: "T$(D,0)
1211 PRINT#4,"  [205]EMBER......: "T$(D,1)
1212 PRINT#4,"  [210]EAL NAME...: "T$(D,2)
1213 PRINT#4,"  [193]DRESS......: "T$(D,3)
1214 PRINT#4,"  [195]ODE & [195]ITY.: "T$(D,4)
1215 PRINT#4,"  [195]OUNTRY.....: "T$(D,5)
1216 PRINT#4,"  [208]HONE NUMBER: "T$(D,6)
1217 PRINT#4,"  [204]ATEST SEND.: "T$(D,7)
1218 PRINT#4
1220 NEXT:CLOSE4:GOTO1000
1230 OPEN4,4,7:FORD=1TOG
1232 GOSUB1400
1240 NEXT:CLOSE4:GOTO1000
1400 IFN$=""THENN$="[214]ON: [213]NBEKANNT"
1401 PRINT#4,"      "N$
1404 PRINT#4,"      --------------------------------":PRINT#4
1405 PRINT#4,"      "T$(D,2)
1406 PRINT#4,"      "T$(D,3)
1407 PRINT#4,"      "T$(D,4)
1408 PRINT#4:PRINT#4,"      "T$(D,5)
1409 PRINT#4:RETURN
1500 PRINT"[147][193]BSENDER-[193]NGABE FUER ERSTE [218]EILE"
1501 PRINT"DES [193]DRESS-[197]TIKETTS EINGEBEN !"
1502 PRINT"Z.[194].: [199]ERD [200]OLZ/12345 [194]ERLIN"
1503 INPUT N$:N$=LEFT$(N$,31)
1510 PRINT""N$:PRINT"[211]O IN [207]RDNUNG ? (J/N/C)"
1511 GETA$:IFA$="J"THEN1000
1512 IFA$="N"THEN1500
1513 IFA$="C"THENN$="":GOTO1000
1514 GOTO1511